home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Dylan Related / Mindy / Mindy 1.2 - portable sources / comp / lose.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-03-15  |  1.8 KB  |  68 lines  |  [TEXT/ttxt]
  1. /**********************************************************************\
  2. *
  3. *  Copyright (c) 1994  Carnegie Mellon University
  4. *  All rights reserved.
  5. *  
  6. *  Use and copying of this software and preparation of derivative
  7. *  works based on this software are permitted, including commercial
  8. *  use, provided that the following conditions are observed:
  9. *  
  10. *  1. This copyright notice must be retained in full on any copies
  11. *     and on appropriate parts of any derivative works.
  12. *  2. Documentation (paper or online) accompanying any system that
  13. *     incorporates this software, or any part of it, must acknowledge
  14. *     the contribution of the Gwydion Project at Carnegie Mellon
  15. *     University.
  16. *  
  17. *  This software is made available "as is".  Neither the authors nor
  18. *  Carnegie Mellon University make any warranty about the software,
  19. *  its performance, or its conformity to any specification.
  20. *  
  21. *  Bug reports, questions, comments, and suggestions should be sent by
  22. *  E-mail to the Internet address "gwydion-bugs@cs.cmu.edu".
  23. *
  24. ***********************************************************************
  25. *
  26. * $Header: lose.c,v 1.6 94/10/05 20:55:25 nkramer Exp $
  27. *
  28. * This file contains lose, the interal flame-out routine.
  29. *
  30. \**********************************************************************/
  31.  
  32. #include "../compat/std-c.h"
  33.  
  34. #include "lose.h"
  35.  
  36. static void vlose(char *fmt, va_list ap)
  37. {
  38.     if (fmt != NULL) {
  39.         vfprintf(stderr, fmt, ap);
  40.     fflush(stderr);
  41.     if (fmt[strlen(fmt)-1] != '\n')
  42.         putc('\n', stderr);
  43.     }
  44.     abort();
  45. }
  46.  
  47. #if _USING_PROTOTYPES_
  48. void lose(char *fmt, ...)
  49. {
  50.     va_list ap;
  51.  
  52.     va_start(ap, fmt);
  53.     vlose(fmt, ap);
  54.     va_end(ap);
  55. }
  56. #else
  57. void lose(va_alist) va_dcl
  58. {
  59.     va_list ap;
  60.     char *fmt;
  61.     va_start(ap);
  62.     fmt = va_arg(ap, char *);
  63.     vlose(fmt, ap);
  64.     va_end(ap);
  65. }
  66. #endif
  67.  
  68.